Cream of the Crop 20/Cream of the Crop 20 (Terry Blount) (1996).iso/program/prtfrm51.zip/FRMSRC.ZIP/FDEMO18.DFM/FDEMO18.txt

Text File | 1996-06-21 | 19KB | 831 lines

object Form18: TForm18
  Left = 114
  Top = 150
  Width = 566
  Height = 446
  ActiveControl = Panel1
  Caption = 'Customers'
  Font.Color = clBlack
  Font.Height = -14
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PixelsPerInch = 120
  Position = poScreenCenter
  TextHeight = 16
  object Label5: TLabel
    Left = 56
    Top = 112
    Width = 46
    Height = 16
    Caption = 'Version'
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 558
    Height = 381
    Align = alTop
    TabOrder = 0
    object Bevel3: TBevel
      Left = 12
      Top = 84
      Width = 273
      Height = 189
    end
    object Bevel2: TBevel
      Left = 4
      Top = 8
      Width = 545
      Height = 41
    end
    object Bevel1: TBevel
      Left = 328
      Top = 84
      Width = 225
      Height = 189
    end
    object Label6: TLabel
      Left = 40
      Top = 92
      Width = 64
      Height = 16
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'Licensee'
    end
    object Label9: TLabel
      Left = 72
      Top = 118
      Width = 32
      Height = 16
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'Date'
    end
    object Label10: TLabel
      Left = 20
      Top = 144
      Width = 84
      Height = 16
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'Customer'
    end
    object Label11: TLabel
      Left = 36
      Top = 170
      Width = 68
      Height = 16
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'Address1'
    end
    object Label14: TLabel
      Left = 36
      Top = 196
      Width = 68
      Height = 16
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'Address2'
    end
    object Label15: TLabel
      Left = 36
      Top = 222
      Width = 68
      Height = 16
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'Address3'
    end
    object Label16: TLabel
      Left = 28
      Top = 248
      Width = 76
      Height = 16
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'Telephone'
    end
    object Label22: TLabel
      Left = 376
      Top = 104
      Width = 77
      Height = 16
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'Quantity'
    end
    object Label23: TLabel
      Left = 404
      Top = 132
      Width = 48
      Height = 16
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'Price'
    end
    object Label24: TLabel
      Left = 388
      Top = 160
      Width = 64
      Height = 16
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'SubTotal'
    end
    object Label25: TLabel
      Left = 340
      Top = 186
      Width = 116
      Height = 16
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'Shipping & Handling'
    end
    object Label26: TLabel
      Left = 348
      Top = 212
      Width = 108
      Height = 16
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'Tax'
    end
    object Label27: TLabel
      Left = 356
      Top = 238
      Width = 100
      Height = 16
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'Total'
    end
    object Label1: TLabel
      Left = 28
      Top = 16
      Width = 46
      Height = 16
      Caption = 'Product'
    end
    object Label30: TLabel
      Left = 28
      Top = 54
      Width = 433
      Height = 25
      Caption = 'Demo Registration - Only Print feature is functional'
      Font.Color = clBlack
      Font.Height = -20
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Print: TBitBtn
      Left = 372
      Top = 12
      Width = 81
      Height = 33
      Caption = '&Preview'
      TabOrder = 0
      OnClick = PrintClick
    end
    object ComboBox2: TComboBox
      Left = 88
      Top = 12
      Width = 265
      Height = 24
      Enabled = False
      ItemHeight = 16
      TabOrder = 1
      Text = 'Demo Program'
    end
    object Exit: TBitBtn
      Left = 456
      Top = 12
      Width = 77
      Height = 33
      Caption = '&Exit'
      ModalResult = 2
      TabOrder = 2
      OnClick = ExitClick
    end
    object Edit12: TEdit
      Left = 464
      Top = 98
      Width = 81
      Height = 24
      ReadOnly = True
      TabOrder = 3
      Text = '0.00'
    end
    object Edit13: TEdit
      Left = 464
      Top = 126
      Width = 81
      Height = 24
      ReadOnly = True
      TabOrder = 4
      Text = '0.00'
    end
    object Edit14: TEdit
      Left = 464
      Top = 154
      Width = 81
      Height = 24
      ReadOnly = True
      TabOrder = 5
      Text = '0.00'
    end
    object Edit15: TEdit
      Left = 464
      Top = 186
      Width = 81
      Height = 24
      ReadOnly = True
      TabOrder = 6
      Text = '0.00'
    end
    object Edit16: TEdit
      Left = 464
      Top = 210
      Width = 81
      Height = 24
      ReadOnly = True
      TabOrder = 7
      Text = '0.00'
    end
    object Edit17: TEdit
      Left = 464
      Top = 234
      Width = 81
      Height = 24
      ReadOnly = True
      TabOrder = 8
      Text = '0.00'
    end
    object Memo9: TMemo
      Left = 12
      Top = 280
      Width = 545
      Height = 93
      Alignment = taCenter
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Lines.Strings = (

          'If you look closely, you'#39'll see that this form consists of 2 par' +
          'ts. The '

          'bottom part is the actual part that gets to be printed. It is st' +
          'ill on the '
        'same form so any information is accessible to both parts!'

          'The bottom form can be completely hidden but will still print wi' +
          'th PrintIt'

          'In this demo everything is disabled except for the Preview and E' +
          'xit buttons')
      ParentFont = False
      ReadOnly = True
      TabOrder = 9
    end
    object Edit18: TEdit
      Left = 110
      Top = 90
      Width = 163
      Height = 24
      ReadOnly = True
      TabOrder = 10
      Text = 'Mr. J. Smith'
    end
    object Edit19: TEdit
      Left = 110
      Top = 116
      Width = 163
      Height = 24
      ReadOnly = True
      TabOrder = 11
    end
    object Edit20: TEdit
      Left = 110
      Top = 141
      Width = 163
      Height = 24
      ReadOnly = True
      TabOrder = 12
    end
    object Edit21: TEdit
      Left = 110
      Top = 167
      Width = 163
      Height = 24
      ReadOnly = True
      TabOrder = 13
    end
    object Edit22: TEdit
      Left = 110
      Top = 192
      Width = 163
      Height = 24
      ReadOnly = True
      TabOrder = 14
    end
    object Edit23: TEdit
      Left = 110
      Top = 218
      Width = 163
      Height = 24
      ReadOnly = True
      TabOrder = 15
    end
    object Edit24: TEdit
      Left = 110
      Top = 243
      Width = 163
      Height = 24
      ReadOnly = True
      TabOrder = 16
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 381
    Width = 558
    Height = 38
    Align = alClient
    BevelInner = bvLowered
    BorderWidth = 4
    Caption = 'Panel2'
    TabOrder = 1
    object ScrollBox: TScrollBox
      Left = 6
      Top = 6
      Width = 546
      Height = 26
      HorzScrollBar.Margin = 6
      HorzScrollBar.Position = 295
      VertScrollBar.Margin = 6
      VertScrollBar.Position = 51
      Align = alClient
      BorderStyle = bsNone
      Color = clBtnFace
      ParentColor = False
      TabOrder = 0
      object Label12: TLabel
        Left = -271
        Top = -11
        Width = 298
        Height = 16
        Caption = '1111 St James'#39' Street, Pretoria, South Africa, 0083'
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = [fsItalic]
        ParentFont = False
      end
      object Shape1: TShape
        Left = -275
        Top = 9
        Width = 737
        Height = 5
        Brush.Color = clBlack
      end
      object Label13: TLabel
        Left = -267
        Top = 209
        Width = 188
        Height